/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / vic20 / utilities / unexpanded / Char Gener (3.5).prg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 10 28 10 64 00 97 33 | 36 38 37 39 2c 32 37 3a |..(.d..3|6879,27:|
|00000010| 99 22 93 20 43 48 41 52 | 41 43 54 45 52 20 47 45 |.". CHAR|ACTER GE|
|00000020| 4e 45 52 41 54 4f 52 22 | 00 45 10 6e 00 99 22 11 |NERATOR"|.E.n..".|
|00000030| 11 20 20 42 59 20 44 41 | 56 49 44 20 4d 41 4c 4d |.  BY DA|VID MALM|
|00000040| 42 45 52 47 22 00 5c 10 | 78 00 8f 20 34 33 30 36 |BERG".\.|x.. 4306|
|00000050| 34 20 56 49 41 20 4d 4f | 52 41 47 41 00 76 10 82 |4 VIA MO|RAGA.v..|
|00000060| 00 8f 20 46 52 45 4d 4f | 4e 54 2c 20 43 41 4c 49 |.. FREMO|NT, CALI|
|00000070| 46 4f 52 4e 49 41 00 9c | 10 8c 00 58 b2 c2 28 35 |FORNIA..|...X..(5|
|00000080| 36 29 ab 32 3a 97 35 32 | 2c 58 3a 97 35 36 2c 58 |6).2:.52|,X:.56,X|
|00000090| 3a 97 35 31 2c c2 28 35 | 35 29 3a 9c 00 b3 10 96 |:.51,.(5|5):.....|
|000000a0| 00 43 53 b2 32 35 36 ac | c2 28 35 32 29 aa c2 28 |.CS.256.|.(52)..(|
|000000b0| 35 31 29 00 d7 10 a0 00 | 81 49 b2 43 53 a4 43 53 |51).....|.I.CS.CS|
|000000c0| aa 35 31 31 3a 97 49 2c | c2 28 49 aa 33 32 37 36 |.511:.I,|.(I.3276|
|000000d0| 38 ab 43 53 29 3a 82 00 | e8 10 aa 00 53 b2 37 36 |8.CS):..|....S.76|
|000000e0| 38 30 3a 43 4c b2 32 32 | 00 07 11 b4 00 43 52 b2 |80:CL.22|.....CR.|
|000000f0| 30 3a 4c 4e b2 32 30 30 | 3a 50 b2 31 32 3a 42 47 |0:LN.200|:P.12:BG|
|00000100| b2 33 3a 42 52 b2 31 00 | 1b 11 be 00 97 33 36 38 |.3:BR.1.|.....368|
|00000110| 37 39 2c 42 47 ac 31 36 | aa 42 52 00 47 11 c8 00 |79,BG.16|.BR.G...|
|00000120| 96 a5 41 28 58 58 29 b2 | 53 aa 52 ac 43 4c aa 43 |..A(XX).|S.R.CL.C|
|00000130| 3a 8f 20 53 43 52 45 45 | 4e 20 50 4f 4b 45 20 4c |:. SCREE|N POKE L|
|00000140| 4f 43 41 54 49 4f 4e 00 | 7b 11 d2 00 96 a5 42 28 |OCATION.|{.....B(|
|00000150| 58 58 29 b2 38 ac 52 aa | 43 3a 8f 20 53 43 52 45 |XX).8.R.|C:. SCRE|
|00000160| 45 4e 20 50 4f 4b 45 20 | 56 41 4c 55 45 20 46 4f |EN POKE |VALUE FO|
|00000170| 52 20 43 48 41 52 41 43 | 54 45 52 00 84 11 dc 00 |R CHARAC|TER.....|
|00000180| 89 35 38 30 00 92 11 e6 | 00 99 22 93 22 3a 8d 38 |.580....|..".":.8|
|00000190| 31 30 00 b5 11 f0 00 99 | 22 13 22 3b 3a 81 49 b2 |10......|".";:.I.|
|000001a0| 30 a4 37 3a 99 22 2e 2e | 2e 2e 2e 2e 2e 2e 22 3a |0.7:."..|......":|
|000001b0| 82 3a 46 b2 30 00 c6 11 | fa 00 99 22 13 22 3a 52 |.:F.0...|...".":R|
|000001c0| b2 30 3a 43 b2 30 00 d2 | 11 04 01 5a b2 a5 41 28 |.0:C.0..|...Z..A(|
|000001d0| 30 29 00 ec 11 0e 01 8b | 46 b2 30 a7 97 5a 2c c2 |0)......|F.0..Z,.|
|000001e0| 28 5a 29 aa 31 32 38 3a | 89 33 31 30 00 fa 11 18 |(Z).128:|.310....|
|000001f0| 01 8b 5a b2 5a 4c a7 33 | 30 30 00 20 12 22 01 97 |..Z.ZL.3|00. ."..|
|00000200| 5a 4c 2c 49 4c 3a 97 5a | 4c aa 33 30 37 32 30 2c |ZL,IL:.Z|L.30720,|
|00000210| 42 43 3a 5a 4c b2 5a 3a | 49 4c b2 c2 28 5a 4c 29 |BC:ZL.Z:|IL..(ZL)|
|00000220| 00 35 12 2c 01 97 5a 2c | 33 32 3a 97 5a aa 33 30 |.5.,..Z,|32:.Z.30|
|00000230| 37 32 30 2c 32 00 48 12 | 36 01 a1 41 24 3a 8b 41 |720,2.H.|6..A$:.A|
|00000240| 24 b2 22 22 a7 33 31 30 | 00 5d 12 40 01 8b 46 b2 |$."".310|.].@..F.|
|00000250| 30 a7 97 5a 2c c2 28 5a | 29 ab 31 32 38 00 7a 12 |0..Z,.(Z|).128.z.|
|00000260| 4a 01 8f 20 43 55 52 53 | 4f 52 20 43 4f 4e 54 52 |J.. CURS|OR CONTR|
|00000270| 4f 4c 20 4f 50 54 49 4f | 4e 53 00 a4 12 54 01 8b |OL OPTIO|NS...T..|
|00000280| 41 24 b2 22 51 22 a7 97 | 35 36 2c c2 28 35 36 29 |A$."Q"..|56,.(56)|
|00000290| aa 32 3a 97 33 36 38 36 | 39 2c 32 34 30 3a 99 22 |.2:.3686|9,240:."|
|000002a0| 93 22 3a 80 00 bd 12 5e | 01 8b 41 24 b2 22 1d 22 |.":....^|..A$."."|
|000002b0| af 43 b2 37 a7 43 b2 30 | 3a 89 32 36 30 00 d4 12 |.C.7.C.0|:.260...|
|000002c0| 68 01 8b 41 24 b2 22 1d | 22 a7 43 b2 43 aa 31 3a |h..A$.".|".C.C.1:|
|000002d0| 89 32 36 30 00 ed 12 72 | 01 8b 41 24 b2 22 9d 22 |.260...r|..A$."."|
|000002e0| af 43 b2 30 a7 43 b2 37 | 3a 89 32 36 30 00 04 13 |.C.0.C.7|:.260...|
|000002f0| 7c 01 8b 41 24 b2 22 9d | 22 a7 43 b2 43 ab 31 3a ||..A$.".|".C.C.1:|
|00000300| 89 32 36 30 00 1d 13 86 | 01 8b 41 24 b2 22 11 22 |.260....|..A$."."|
|00000310| af 52 b2 37 a7 52 b2 30 | 3a 89 32 36 30 00 34 13 |.R.7.R.0|:.260.4.|
|00000320| 90 01 8b 41 24 b2 22 11 | 22 a7 52 b2 52 aa 31 3a |...A$.".|".R.R.1:|
|00000330| 89 32 36 30 00 4d 13 9a | 01 8b 41 24 b2 22 91 22 |.260.M..|..A$."."|
|00000340| af 52 b2 30 a7 52 b2 37 | 3a 89 32 36 30 00 64 13 |.R.0.R.7|:.260.d.|
|00000350| a4 01 8b 41 24 b2 22 91 | 22 a7 52 b2 52 ab 31 3a |...A$.".|".R.R.1:|
|00000360| 89 32 36 30 00 74 13 ae | 01 8b 41 24 b2 22 13 22 |.260.t..|..A$."."|
|00000370| a7 32 35 30 00 81 13 b8 | 01 8b 46 b2 31 a7 35 34 |.250....|..F.1.54|
|00000380| 30 00 a4 13 c2 01 8f 20 | 44 45 46 49 4e 45 20 4e |0...... |DEFINE N|
|00000390| 45 57 20 43 48 41 52 41 | 43 54 45 52 20 4f 50 54 |EW CHARA|CTER OPT|
|000003a0| 49 4f 4e 53 00 bb 13 cc | 01 8b 41 24 b2 22 2b 22 |IONS....|..A$."+"|
|000003b0| a7 97 5a 2c 38 31 3a 89 | 32 36 30 00 d2 13 d6 01 |..Z,81:.|260.....|
|000003c0| 8b 41 24 b2 22 2d 22 a7 | 97 5a 2c 34 36 3a 89 32 |.A$."-".|.Z,46:.2|
|000003d0| 36 30 00 e2 13 e0 01 8b | 41 24 b2 22 3d 22 a7 36 |60......|A$."=".6|
|000003e0| 38 30 00 f2 13 ea 01 8b | 41 24 b2 22 93 22 a7 32 |80......|A$.".".2|
|000003f0| 34 30 00 02 14 f4 01 8b | 41 24 b2 22 52 22 a7 35 |40......|A$."R".5|
|00000400| 38 30 00 12 14 fe 01 8b | 41 24 b2 22 42 22 a7 37 |80......|A$."B".7|
|00000410| 37 30 00 1b 14 08 02 89 | 32 36 30 00 3e 14 12 02 |70......|260.>...|
|00000420| 8f 20 52 45 56 49 45 57 | 20 43 48 41 52 41 43 54 |. REVIEW| CHARACT|
|00000430| 45 52 20 53 45 54 20 4f | 50 54 49 4f 4e 53 00 4b |ER SET O|PTIONS.K|
|00000440| 14 1c 02 43 52 b2 a5 42 | 28 30 29 00 67 14 26 02 |...CR..B|(0).g.&.|
|00000450| 8b 41 24 b2 22 4e 22 a7 | 97 33 36 38 36 39 2c 32 |.A$."N".|.36869,2|
|00000460| 34 30 3a 89 32 33 30 00 | 87 14 30 02 8b 41 24 b2 |40:.230.|..0..A$.|
|00000470| 22 45 22 a7 97 33 36 38 | 36 39 2c 32 34 30 3a 46 |"E"..368|69,240:F|
|00000480| b2 30 3a 89 37 33 30 00 | 90 14 3a 02 89 32 36 30 |.0:.730.|..:..260|
|00000490| 00 b6 14 44 02 97 33 36 | 38 36 39 2c 32 35 35 3a |...D..36|869,255:|
|000004a0| 52 b2 34 3a 43 b2 30 3a | 5a 4c b2 a5 41 28 30 29 |R.4:C.0:|ZL..A(0)|
|000004b0| 3a 49 4c b2 33 32 00 ef | 14 4e 02 99 22 93 40 41 |:IL.32..|.N..".@A|
|000004c0| 42 43 44 45 46 47 22 3a | 99 22 48 49 4a 4b 4c 4d |BCDEFG":|."HIJKLM|
|000004d0| 4e 4f 22 3a 99 22 50 51 | 52 53 54 55 56 57 22 3a |NO":."PQ|RSTUVW":|
|000004e0| 99 22 58 59 5a 5b 5c 5d | 5e 5f 22 3a 46 b2 31 00 |."XYZ[\]|^_":F.1.|
|000004f0| 2b 15 58 02 99 22 20 21 | 22 aa c7 28 33 34 29 aa |+.X.." !|"..(34).|
|00000500| 22 23 24 25 26 27 22 3a | 99 22 28 29 2a 2b 2c 2d |"#$%&'":|."()*+,-|
|00000510| 2e 2f 22 3a 99 22 30 31 | 32 33 34 35 36 37 22 3a |./":."01|234567":|
|00000520| 99 22 38 39 3a 3b 3c 3d | 3e 3f 22 00 46 15 62 02 |."89:;<=|>?".F.b.|
|00000530| 99 22 13 22 a6 31 32 29 | 3b 22 12 4f 50 54 49 4f |.".".12)|;".OPTIO|
|00000540| 4e 53 92 22 3a 99 00 5f | 15 6c 02 99 a6 31 30 29 |NS.":.._|.l...10)|
|00000550| 3b 22 12 4e 20 4e 45 57 | 20 43 48 41 52 92 22 00 |;".N NEW| CHAR.".|
|00000560| 79 15 76 02 99 a6 31 30 | 29 3b 22 12 45 20 45 44 |y.v...10|);".E ED|
|00000570| 49 54 20 43 48 41 52 92 | 22 00 8e 15 80 02 99 a6 |IT CHAR.|".......|
|00000580| 31 30 29 3b 22 12 51 20 | 51 55 49 54 92 22 00 9e |10);".Q |QUIT."..|
|00000590| 15 8a 02 42 43 b2 c2 28 | 33 38 34 30 30 29 00 a7 |...BC..(|38400)..|
|000005a0| 15 94 02 89 32 36 30 00 | cc 15 9e 02 8f 20 55 50 |....260.|..... UP|
|000005b0| 44 41 54 45 20 43 48 41 | 52 41 43 54 45 52 20 44 |DATE CHA|RACTER D|
|000005c0| 41 54 41 20 49 4e 20 54 | 41 42 4c 45 00 f9 15 a8 |ATA IN T|ABLE....|
|000005d0| 02 99 22 13 22 3b 3a 58 | b2 43 53 aa 38 ac 43 52 |..".";:X|.CS.8.CR|
|000005e0| 3a 81 52 b2 30 a4 37 3a | 53 4d b2 30 3a 81 43 b2 |:.R.0.7:|SM.0:.C.|
|000005f0| 30 a4 37 3a 44 b2 37 ab | 43 00 18 16 b2 02 53 4d |0.7:D.7.|C.....SM|
|00000600| b2 53 4d ab 32 ae 44 ac | 28 c2 28 a5 41 28 30 29 |.SM.2.D.|(.(.A(0)|
|00000610| 29 b2 38 31 29 3a 82 43 | 00 2f 16 bc 02 97 58 aa |).81):.C|./....X.|
|00000620| 52 2c 53 4d 3a 99 a6 38 | 29 3b 53 4d 3a 82 52 00 |R,SM:..8|);SM:.R.|
|00000630| 40 16 c6 02 52 b2 30 3a | 43 b2 30 3a 89 32 36 30 |@...R.0:|C.0:.260|
|00000640| 00 60 16 d0 02 8f 20 45 | 44 49 54 20 43 48 41 52 |.`.... E|DIT CHAR|
|00000650| 41 43 54 45 52 20 46 52 | 4f 4d 20 54 41 42 4c 45 |ACTER FR|OM TABLE|
|00000660| 00 92 16 da 02 58 b2 43 | 53 aa 38 ac 43 52 3a 99 |.....X.C|S.8.CR:.|
|00000670| 22 93 22 3a 81 52 b2 30 | a4 37 3a 59 b2 c2 28 58 |".":.R.0|.7:Y..(X|
|00000680| aa 52 29 3a 81 43 b2 30 | a4 37 3a 5a b2 a5 41 28 |.R):.C.0|.7:Z..A(|
|00000690| 30 29 00 b5 16 e4 02 51 | b2 34 36 3a 59 b2 59 ac |0).....Q|.46:Y.Y.|
|000006a0| 32 3a 8b 59 b1 32 35 35 | a7 51 b2 38 31 3a 59 b2 |2:.Y.255|.Q.81:Y.|
|000006b0| 59 ab 32 35 36 00 d5 16 | ee 02 97 5a 2c 51 3a 82 |Y.256...|...Z,Q:.|
|000006c0| 43 2c 52 3a 52 b2 30 3a | 43 b2 30 3a 8d 38 31 30 |C,R:R.0:|C.0:.810|
|000006d0| 3a 89 32 36 30 00 00 17 | f8 02 8f 20 42 41 53 49 |:.260...|... BASI|
|000006e0| 43 20 53 54 41 54 45 4d | 45 4e 54 53 20 54 4f 20 |C STATEM|ENTS TO |
|000006f0| 44 45 46 49 4e 45 20 43 | 48 41 52 41 43 54 45 52 |DEFINE C|HARACTER|
|00000700| 00 1b 17 02 03 58 b2 43 | 53 aa 38 ac 43 52 3a 99 |.....X.C|S.8.CR:.|
|00000710| 22 13 11 11 11 11 11 11 | 11 11 22 00 5d 17 0c 03 |".......|..".]...|
|00000720| 99 4c 4e 3b 22 52 45 41 | 44 20 58 3a 20 46 4f 52 |.LN;"REA|D X: FOR|
|00000730| 20 49 3d 58 20 54 4f 20 | 58 2b 37 3a 20 52 45 41 | I=X TO |X+7: REA|
|00000740| 44 20 59 3a 20 50 4f 4b | 45 20 58 2c 59 3a 20 4e |D Y: POK|E X,Y: N|
|00000750| 45 58 54 22 3a 4c 4e b2 | 4c 4e aa 31 30 00 89 17 |EXT":LN.|LN.10...|
|00000760| 16 03 99 4c 4e 3b 22 44 | 41 54 41 22 3b 58 3b 3a |...LN;"D|ATA";X;:|
|00000770| 81 49 b2 58 a4 58 aa 37 | 3a 99 22 9d 2c 22 3b c2 |.I.X.X.7|:.".,";.|
|00000780| 28 49 29 3b 3a 82 49 3a | 99 00 92 17 20 03 89 32 |(I);:.I:|.... ..2|
|00000790| 36 30 00 ad 17 2a 03 99 | 22 13 22 3b a6 31 33 29 |60...*..|".";.13)|
|000007a0| 22 12 4f 50 54 49 4f 4e | 53 92 22 3a 99 00 c4 17 |".OPTION|S.":....|
|000007b0| 34 03 99 a6 50 29 3b 22 | 12 2b 92 20 41 44 44 20 |4...P);"|.+. ADD |
|000007c0| 44 4f 54 22 00 db 17 3e | 03 99 a6 50 29 3b 22 12 |DOT"...>|...P);".|
|000007d0| 2d 92 20 45 52 41 53 45 | 20 20 22 00 f2 17 48 03 |-. ERASE|  "...H.|
|000007e0| 99 a6 50 29 3b 22 12 3d | 92 20 55 50 44 41 54 45 |..P);".=|. UPDATE|
|000007f0| 20 22 00 09 18 52 03 99 | a6 50 29 3b 22 12 42 92 | "...R..|.P);".B.|
|00000800| 20 42 41 53 49 43 20 20 | 22 00 20 18 5c 03 99 a6 | BASIC  |". .\...|
|00000810| 50 29 3b 22 12 52 92 20 | 52 45 56 49 45 57 20 22 |P);".R. |REVIEW "|
|00000820| 00 37 18 66 03 99 a6 50 | 29 3b 22 12 51 92 20 51 |.7.f...P|);".Q. Q|
|00000830| 55 49 54 20 20 20 22 00 | 3d 18 70 03 8e 00 00 00 |UIT   ".|=.p.....|
+--------+-------------------------+-------------------------+--------+--------+